BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/P/Passing Notes.cpt/Passing Notes/stack.txt

Text File | 1992-04-01 | 7KB | 272 lines

-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x5000 (can't delete)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 8
-- first background id: 2605
-- card count: 35
-- first card id: 3437
-- list block id: 18223
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 308224 bytes
-- stack block size: 6656 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x01228000
-- modified by hypercard version: 0x01228000
-- opened by hypercard version: 0x01228000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFFFFFFFFFBFFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on mouseUp
  global PendState
  if mouseH() < 10 and mouseV() <10 then
    show menubar
    exit to hyperCard
  else
    cleanScreen
  end if
  if name of target contains "Field" and short name of target is not "DoNotPop" then
    popUp short name of target
    exit to hyperCard
  end if
  if short name of the target is "Home" then
    if optionKey() is down then
      visual zoom in
      go home
    else
      visual zoom in
      go stack "Library"
      if result() is empty then
      else
        beep
        exit mouseUp
      end if
    end if
  end if
  if short name of target is "SeatingChart" then
    if optionKey() is not down then
      visual zoom open
      go cd id 16794
    else
      if PendState is "Msg Pending" then
        set cursor to 4
        lock screen
        go cd id 12170
        send mouseUp to cd btn id 21
        unlock screen with zoom open
      else
        visual zoom open
        go cd id 16794
      end if
    end if
  end if
end mouseUp

on wleft
  visual wipe left
  go (line 4 of script of target)
end wleft
on wright
  visual wipe right
  go (line 4 of script of target)
end wright
on vdis
  visual dissolve
  go (line 4 of script of target)
end vdis
on doScro direction
  do "visual scroll " &direction
  go (line 4 of script of target)
end doScro

on openCard
end openCard

on closeCard
  cleanScreen
end closeCard

on popUp thatField
  cleanScreen
  lock screen
  set visible of cd fld thatField to not visible of cd fld thatField
  unlock screen with dissolve
end popUp

on cleanScreen
  hide menuBar
  hide msg
end cleanScreen

on waiter
  wait until mouse() is down
end waiter

on doMenu WhichItem
  if whichitem is "If Monks Had Macs..." then
    answer "       This stack is from the package" &return &"       “If Monks Had Macs...” 2.5.7" &return &"       ©1988,1989  riverTEXT™"
    exit domenu
  end if
  if WhichItem is "Quit HyperCard" then
    if the freesize of this stack > 2000 and the diskspace > the size of this stack then
      Answer "Compact this stack before quitting?" with "Cancel" or "No" or "Yes"
      If it is "Yes" then
        if cantmodify of this stack is false then
          set loc of Message Box to 17,110
          Put "             Compacting this stack before quitting"
          doMenu "Compact Stack"
          pass doMenu
        else
          show menuBar
          answer "The Cantmodify of this stack is set to true," &" so compacting is impossible at this time. Next session?" with "OK"
          pass doMenu
        end if
      end if
      if it is "No" then
        pass domenu
      end if
    else
      pass doMenu
    end if
  else
    pass doMenu
  end if
end doMenu

on openStack
  global Stacks,theSpeech
  cleanScreen
  if the version < 1.2 then
    Answer "Hypercard version 1.2, or later, is available at your " &"Apple dealer. Many functions of this stack require the new " &"features.  Continue?" with "Risk It" or "Go Home"
    if it is "Go Home" then
      visual dissolve
      go home
      exit openStack
    end if
  end if
  if stacks is empty then
    CheckGlobals
  end if
  About " ","If Monks Had Macs..."
  if theSpeech is empty then TurnSpeechOn
  set userLevel to 5
end openStack

on CheckGlobals
  global GULevel,GPKeys,GTArrows
  global GVPatn,GBTyping,GVMsg,GVTool
  getHomeInfo
  put the userLevel into GULevel
  put the powerKeys Into GPKeys
  put the textArrows into GTArrows
  put the blindTyping into GBTyping
  put the visible of the msg into GVMsg
  put the visible of tool window into GVTool
  put the visible of pattern window into GVPatn
end CheckGlobals

on closeStack
  global GULevel,GPKeys,GTArrows
  Global GVPatn,GBTyping,GVMsg,GVTool
  global PendState,lastClick
  cleanScreen
  put empty into lastClick
  put empty into PendState
  if GULevel is empty then
    CheckGlobals
  end if
  set the userLevel to GULevel
  set the powerKeys to GPKeys
  set the textArrows to GTArrows
  set the blindTyping to GBTyping
  set the visible of the msg to GVMsg
  set the visible of tool window to GVTool
  set the visible of pattern window to GVPatn
  about
end closeStack

function MacintalkInstalled
global theSpeech
return not (theSpeech is empty)
end MacintalkInstalled

on say
  if MacintalkInstalled()
  then pass say
end say

on sayphonetic
  if MacintalkInstalled()
  then pass sayphonetic
end sayphonetic

on setrate
  if MacintalkInstalled()
  then pass setrate
end setrate

on setpitch
  if MacintalkInstalled()
  then pass setpitch
end setpitch

--NOTICE:
--Those portions of this stack's scripts that are not Brian Thomas's,
--and those portions of the stacks's scripts that were not stolen (with
--credit given) from other stacks, and those portions of the screen of
--"Li'l Beaver" that Scott Watson wouldn't recognize, are the work of
--Philip A. Mohr, Jr., 4405 N. Rosemead Blvd., Rosemead, Ca. 91770, who
--asks only that you credit him if you find another use for any of the
--scripts or concepts in this stack. Sending him a copy of your stack
--would be a nice touch, as would posting a copy of your stack on a
--commercial service where it would also be available to all.
--                                              Fillmore